home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / S-Super PET / (s)t2.d64 / CHECKSUMS < prev    next >
Text File  |  2009-01-18  |  611b  |  22 lines
  1.     1 ! checksums
  2.     2     NL = 30   ! 30 lines per block
  3.     3     open #8,"plot-8300P",input 
  4.     4     on eof ignore 
  5.     5     loop 
  6.     6        s = 0
  7.     7        for i% = 1 to NL
  8.     8            linput #8, a$
  9.     9            stat = io_status
  10.    10            if stat <> 0 then quit 
  11.    11            for j% = 1 to len(a$)
  12.    12                k = ord(a$(j%:j%))
  13.    13                if k <> 32 then s = s + k
  14.    14            next j%
  15.    15            b$ = a$
  16.    16        next i%
  17.    17        print b$(1:5), s
  18.    18        if stat <> 0 then quit 
  19.    19     endloop 
  20.    20     close #8
  21.    21     stop 
  22.